Imports System.IO

Public Class frmSequential
  Inherits System.Windows.Forms.Form

  ' Kod generowany przez Windows Form Designer 


  Private Sub frmSequential_Load(ByVal sender As System.Object, ByVal e As _
                    System.EventArgs) Handles MyBase.Load
    rtbOutput.Visible = False
  End Sub

  Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles mnuNew.Click
    rtbOutput.Clear()         ' Wyczy zawarto pola tekstowego
    SizeRichTextbox()         ' Ustaw wielko 
    rtbOutput.Visible = True
    rtbOutput.Focus()
  End Sub

  Private Sub SizeRichTextbox()    ' Zmie rozmiary pola tekstu
                                   ' sformatowanego
    Dim ClientSize, BoxSize As Size

    ClientSize = Me.Size
    BoxSize.Height = ClientSize.Height - 100
    BoxSize.Width = ClientSize.Width - 100
    rtbOutput.Size = BoxSize

  End Sub

  Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles mnuSave.Click
    Dim NewFileName As String  'nazwa pliku
    Dim NewFile As SaveFileDialog = New SaveFileDialog()
    Dim MyChoice As DialogResult ' wybr dokonany przez uytkownika

    With NewFile
      .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
      .FilterIndex = 1      ' Jako domylne przyjmujemy pliki tekstowe
      .DefaultExt = "txt"   ' Tak samo
      .InitialDirectory = "C:\Temp\"
      .OverwritePrompt = True         ' Pytamy przed zastpieniem 
      .Title = "Save Text Data File"
    End With

    MyChoice = NewFile.ShowDialog   ' Wywietlenie okna dialogowego
    If MyChoice = DialogResult.Cancel Then  ' Jaki przycisk wybra
                                            ' uytkownik? 
      Exit Sub
    Else
      NewFileName = NewFile.FileName
    End If

    If NewFileName.Length > 0 Then
      Try
        Dim MyTextData As StreamWriter = New _
                    StreamWriter(NewFileName, False)

        MyTextData.Write(rtbOutput.Text)  ' Wpisujemy dane
        MyTextData.Close()                ' Zamykamy strumie
        MyTextData = Nothing              ' Zwalniamy go
      Catch
        Beep()
        MessageBox.Show("Something went wrong while writing of the data")
      End Try
    End If
  End Sub
